From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 16 Jun 1997 23:20:46 +0000 (+0000)
Subject: (grep-program): Comment out the use of zgrep.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~80800
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=000a6a765ee315fa90e0438ed019ce2795669c60;p=emacs.git

(grep-program): Comment out the use of zgrep.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 3587e342dac..c5233444f15 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -341,16 +341,17 @@ Otherwise, it saves all modified buffers without asking."
 ;; The system null device. (Should reference NULL_DEVICE from C.)
 (defvar grep-null-device "/dev/null" "The system null device.")
 
-;; Use zgrep if available, to work nicely with compressed files.
-;; Otherwise, use ordinary grep.
 (defvar grep-program
-  (if (equal (condition-case nil	; in case "zgrep" isn't in exec-path
-		 (call-process "zgrep" nil nil nil
-			       "foo" grep-null-device)
-	       (error nil))
-	     1)
-      "zgrep"
-    "grep")
+  ;; Currently zgrep has trouble.  It runs egrep instead of grep,
+  ;; and it doesn't pass along long options right.
+  "grep"
+;;;  (if (equal (condition-case nil	; in case "zgrep" isn't in exec-path
+;;;		 (call-process "zgrep" nil nil nil
+;;;			       "foo" grep-null-device)
+;;;	       (error nil))
+;;;	     1)
+;;;      "zgrep"
+;;;    "grep")
   "The default grep program for `grep-command' and `grep-find-command'.")
 
 ;; Use -e if grep supports it,